home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / pgpwithyam / encryptmail.rexx next >
OS/2 REXX Batch file  |  1997-06-18  |  961b  |  41 lines
  1. /* Encrypt a mail with Phil's PGP for YAM */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. pgppath = 'Work:pgp/pgp'
  6. pgpcommand = '-ea'
  7. pubword = 'pub'   /* this are the first 3 letters in
  8.                    * output of PGP in the lines of the
  9.                    * set to 'öff' for german users
  10.                    * public keys!!!
  11.                    */
  12.  
  13. CALL CLOSE 'STDOUT'
  14. CALL CLOSE 'STDIN'
  15. CALL OPEN 'STDIN','CON:0/14/1000/200/YAM-REXX/CLOSE'
  16. CALL PRAGMA '*','STDIN'
  17. CALL OPEN 'STDOUT','*'
  18.  
  19. IF ~SHOW('Ports','YAM') THEN DO
  20.   ADDRESS 'COMMAND'
  21.   'Run YAM:YAM NOCHECK HIDE'
  22.   'SYS:RexxC/WaitForPort YAM'
  23. END
  24. IF SHOW('Ports','YAM') THEN DO
  25.   ADDRESS 'YAM'
  26.   GETMAILINFO FILE
  27.   mailfile = RESULT
  28.  
  29.   ADDRESS 'COMMAND'
  30.   'YAM:Rexx/splitmail' mailfile
  31.  
  32.   pgppath '>RAM:keys -kv'
  33.   'YAM:Rexx/SelectKey >ram:selected RAM:keys' pubword
  34.  
  35.   pgppath pgpcommand 'ram:body -@ram:selected'
  36.   'join ram:head ram:body.asc to' mailfile
  37.   'delete ram:head ram:body ram:body.asc ram:keys ram:selected'
  38.  
  39. END
  40.  
  41.